!FINISH
!/CLEAR
!
/FILN,RELIABILITY
/TITLE,RELIABILITY DESIGN OF QUNZUO   

!
*SET,R1,1406.5                  !Ͳڰ뾶
*SET,T1,87                      !Ͳں
*SET,R2,1424                    !ͷڰ뾶
*SET,T2,52                      !ͷں
*SET,T3,22                      !ȹں
*SET,R,20                       !Բǰ뾶
*SET,H,568                      !߶
*SET,P,8.83                     !ѹֵ
P1=P*R1*R1/((R1+T1)**2-R1*R1)   !˲
*SET,YIES,190                   !ǿ

!ǰ
/PREP7  
ET,1,PLANE82                    !PLANE82Ԫ
KEYOPT,1,3,1                    !趨Գѡ
MP,EX,1,1.75E5                  !ϵĵģ 
MP,PRXY,1,0.3                   !ϵĲɱ
*AFUN,DEG                       !趨ǶȵλΪ
ANGLE=ASIN(H/R2)                !νǶ
PCIRC,R2,R2+T2,270,(360-ANGLE)  !ͷԲ
BLC4,R1,0,T1,R1                 !Ͳֱ߶
*GET,XLOC,KP,2,LOC,X            !ùؼ2X꣨Ϊ֧ŶξνǵX꣩
*GET,YLOC,KP,2,LOC,Y            !ùؼ2Y꣨Ϊ֧ŶξνǵY꣩
BLC4,R1+T1-T3,YLOC,T3,H-R2      !ȹ֧Ŷ
!HͶͼ
K,,XLOC,YLOC+R                  !2ŹؼXΪY+ɰ뾶Rؼ
K,,R1+T1-T3,YLOC+R              !֧ŶǵXΪY+ɰ뾶Rؼ

!ҳԲֱ߹ɶν
ANGLE2=ACOS(R1/R2)              !ɶνǶ
CSYS,1                          !ϵ
K,,R2,-ANGLE2                   !ɶλùؼ
L,3,15                          !ӹԲ
CSYS,0                          !ֱϵ
!߹H
L,2,13,11                                             
L,13,14,1
L,14,12,2
L,6,11,5
L,5,15,10
LFILLT,14,15,R,,                !1415߶ν(H͹)
LFILLT,15,16,R,,                !1516߶ν(H͹)
KDELE,13                        !ɾ
AL,5,13,15,2,19,14,11,18,17     !ͨ߶ζ
AADD,ALL                        !

!ƽ滯
NUMMRG,ALL                      !ԸԪ±
NUMCMP,ALL                      !Աѹ
KWPAVE,13                       !ϵԭλ13Źؼ
WPROT,0,-90,0                   !ƽ水Xת-90
ASBW,ALL,                       !ƽʷ
KWPAVE,2                        !ϵԭλ2Źؼ
ASBW,ALL,                       !ƽʷ

!
ASEL,S,AREA,,4,5,1              !ѡ4,5()
ESIZE,10,0                      !趨ԪСΪ10
MSHAPE,0,2D                     !ıεԪ
MSHKEY,0                        !񻮷
AMESH,ALL                       !45

ASEL,ALL                        !ѡе
ASEL,U,AREA,,4,5,1              !ȥ45棬֮
ESIZE,16,0                      !趨ԪСΪ16
AMESH,ALL                       !
FINISH  

!ģ
/SOLU   
!ʩԼ
NSEL,S,LOC,X,0                       !ѡXΪ0Ľڵ
DSYM,SYMM,X                          !ʩXԳԼ
LSEL,S,LINE,,7                       !ѡΪ7߶Σ֧Ŷε׶ˣ
NSLL,S,1                             !ѡѡϵĽڵ
D,ALL,UY,0                           !YλΪ0

!ʩغ
!ڱ610142119߶ϵĽڵʩѹP
LSEL,S,LINE,,6,14,4                  
LSEL,A,LINE,,19,21,2
NSLL,S,1                              !ѡѡϵĽڵ
SF,ALL,PRES,P                         !ʩӾغ

LSEL,S,LINE,,5                         !ѡ߶5Ͳ˲
NSLL,S,1                               !ѡѡϵĽڵ
SF,ALL,PRES,-P1                        !ʩѹΪ-P1
ALLSEL                                 !ѡԪ
SOLVE                                  !
SAVE,RELIABILITY_RESULT                !DBļ  
FINISH                                 !˳

!
/POST1 
NSORT,S,EQV                        !ЧӦ 
*GET,MAXSTR,SORT,,MAX              !ȡЧӦ 
Z=YIES-MAXSTR                      !弫״̬Z(X)=S-EMAX 
LGWRITE,RELIABILITY,TXT            !ʷļ
FINISH 

/PDS                               !ʷģ 
PDANL,'RELIABILITY','TXT',' '      !ѡļ 

PDVAR,P,GAUS,8.83,0.6,0,0           !غΪ˹ֲֵΪ8.83MPA׼Ϊ0.6MPA 
PDVAR,R1,UNIF,1403,1410             !Ͳڰ뾶ΪȷֲС14031410
PDVAR,R2,UNIF,1420,1428             !ͷڰ뾶ΪȷֲС14201428
PDVAR,T1,GAUS,87,0.35,0,0           !ͲںΪ˹ֲֵΪ87MM׼Ϊ0.35MM 
PDVAR,T2,GAUS,52,0.3,0,0            !ͷںΪ˹ֲֵΪ52MM׼Ϊ0.3MM 
PDVAR,T3,GAUS,22,0.2,0,0            !ȹںΪ˹ֲֵΪ22MM׼Ϊ0.2MM 
PDVAR,R,GAUS,20,0.18,0,0            !Բǰ뾶Ϊ˹ֲֵΪ20MM׼Ϊ0.18MM 
PDVAR,H,GAUS,568,3,0,0              !߶Ϊ˹ֲֵΪ568MM׼Ϊ3MM 

PDVAR,YIES,GAUS,190,12,0,0          !Ϊ˹ֲֵΪ190MPA׼Ϊ12MPA 
PDVAR,Z,RESP                        !ZΪ 
PDVAR,MAXSTR,RESP                   !MAXSTRΪ 
PDMETH,MCS,LHS                      !ѡΪM.C. 
PDLHS,500,1,RAND, ,'ALL ', , , ,CONT !50,000 
PDEXE 

PDPROB,SOLU01,Z,LT,0,'    ',0.95,   !鿴ZС0ŶΪ95%ʱĸ 
PDPROB,SOLU01,MAXSTR,GT,190,'    ',0.95,
PDCDF,,Z,EMP,0.95,100               !ͼʾZķֲ
PDCDF,,MAXSTR,EMP,0.95,100          !ͼʾMAXSTRķֲ
PDSHIS,,MAXSTR,MEAN,0.95            !ʾ
PDHIST,,MAXSTR,                     !MAXSTRȡֲֵ״ͼ
PDSENS,,MAXSTR                      !MAXSTRʾ
PDHIST,,P,                          !Pȡֲֵ״ͼ
PDCMAT,,IO,,,RANK,,1                !бʾϵ͸
